Screen Open 1,320,256,32,Lowres : Curs Off : Cls 0 : Hide
MAIN
Procedure MAIN
Unpack 6 To 0
Volume 0
Music 1
For V=0 To 63
Volume V
Wait 3
Next V
Wait 200
Cls 0
Fade 5 : Wait 100
Erase 6
Palette 1,,$FF0
Show
1
If Exist("df0:ALBUM/") : Goto 2 : Else NOALBUM : End If
2
Show
A$=Fsel$(":ALBUM/","","LOAD PICTURE 1")
If A$="" Then Goto OPS
B$=Fsel$(":ALBUM/","","LOAD PICTURE 2")
If B$="" Then Goto 3
C$=Fsel$(":ALBUM/","","LOAD PICTURE 3")
If C$="" Then Goto 4
D$=Fsel$(":ALBUM/","","LOAD PICTURE 4")
If D$="" Then Goto 5
E$=Fsel$(":ALBUM/","","LOAD PICTURE 5")
If E$="" Then Goto 6
F$=Fsel$(":ALBUM/","","LOAD PICTURE 6")
If F$="" Then Goto 7
G$=Fsel$(":ALBUM/","","LOAD PICTURE 7")
If G$="" Then Goto 8
H$=Fsel$(":ALBUM/","","LOAD PICTURE 8")
If H$="" Then Goto 9
I$=Fsel$(":ALBUM/","","LOAD PICTURE 9")
If I$="" Then Goto 10
J$=Fsel$(":ALBUM/","","LOAD LAST PICTURE")
If J$="" Then Goto 11
12 Load Iff J$,1 : Hide : Flash Off
WATCH
11 Load Iff I$,1 : Hide : Flash Off
WATCH
10 Load Iff H$,1 : Hide : Flash Off
WATCH
9 Load Iff G$,1 : Hide : Flash Off
WATCH
8 Load Iff F$,1 : Hide : Flash Off
WATCH
7 Load Iff E$,1 : Hide : Flash Off
WATCH
6 Load Iff D$,1 : Hide : Flash Off
WATCH
5 Load Iff C$,1 : Hide : Flash Off
WATCH
4 Load Iff B$,1 : Hide : Flash Off
WATCH
3 Load Iff A$,1 : Hide : Flash Off
WATCHLAST
Goto 2
OPS:
Screen Open 2,640,80,8,Hires : Cls 7 : Paper 7
Print ""
Print "NO FIRST CHOICE MADE....IF THE MENU WAS BLANK THEN THERE ARE NO PICTURES TO SEE"
Print "IF THERE WAS THEN YOU MUST HAVE CLICKED ON THE WRONG BUTTON DO YOU WISH TO TRY AGAIN ?"
Print " Y/N"
Clear Key : Wait Key
If Key State(21) Then Screen Close 2 : Goto 2
If Key State(54) Then Cls 7 : Home : Print "" : Print "" : Print "OK...ARE YOU SURE......Y/N" : Clear Key : Wait Key : If Key State(21) : End : Else Goto 2 : End If
End Proc
Procedure WATCH
Wait 600
Fade 5
End Proc
Procedure WATCHLAST
Wait 600
Fade 5
Screen Open 2,640,50,2,Hires
Print "" : Centre "THAT WAS THE LAST PICTURE,DO YOU WANT TO LOAD SOME MORE?"
Print "" : Centre "Y/N"
Clear Key : Wait Key
If Key State(21) : Goto 2 : Else Cls 0 : Centre "OK GOODBYE" : For V=63 To 0 Step -1 : Volume V : Wait 3 : Next V : Wait 100 : End : End If
End Proc
Procedure NOALBUM
Screen Open 2,640,80,8,Hires : Cls 7 : Paper 7
Print ""
Print "THERE IS NO DIRECTORY CALLED ALBUM ON THIS DISC.HAVE YOU PUT THE COLOUR IT DISC"
Print "IN DF0:?,IF NOT,DO SO THEN PRESS F10"
Print "IF COLOUR_IT IS IN DF0:THEN DIR ALBUM SEEMS TO HAVE BEEN ERASED,WOULD YOU LIKE"
Print "ME TO MAKE ANOTHER UP FOR YOU"
Print " Y/N"
Clear Key : Wait Key
If Key State(89) Then Screen Close 2 : Goto 2
If Key State(21) Then Goto 13
If Key State(54) Then Cls 7 : Home : Print "" : Print "" : Print "OK BUT THERE IS NO POINT ON GOING ON...ARE YOU SURE......Y/N" : Clear Key : Wait Key : If Key State(21) : End : Else Goto 13 : End If
13
Cls 7 : Home : Print "" : Print "OK NOW MAKING DIRECTORY ALBUM" : Mkdir "ALBUM" : Print "ALL DONE..............NOW GO TO BOOK AND MAKE UP PICTURES...THERES NO POINT IN GOING ON" : Print "SO I'LL QUIT NOW...BYE" : Wait 300 : End